home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 April / 1994-04b.d64 / random functions (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  285 b   |  10 lines
  1. 10 rem random number functions
  2. 20 def fn r0(x)=int(rnd(1)*x)
  3. 30 rem returns integer from 0 to x-1
  4. 40 def fn rx(x)=int(rnd(1)*(x+1))
  5. 50 rem returns integer from 0 to x
  6. 60 def fn r1(x)=int(rnd(1)*(x-1))+1
  7. 70 rem returns integer from 1 to x-1
  8. 80 def fn pb(x)=(rnd(1)<(x/100))
  9. 90 rem returns true x% of the time
  10.